﻿Public Class frmUsuariosAgregar

    Private mAgregarBS As BS.Usuarios
    Private mAgregarBE As BE.Usuarios
    Private mId As Integer


    'Propiedades
    Property Id As Integer
        Get
            Return mId
        End Get
        Set(ByVal value As Integer)
            mId = value
        End Set
    End Property

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        'Se Agrega un nuevo usuario al sistema
        Me.mAgregarBS = New Banco.BS.Usuarios
        Me.mAgregarBE = New Banco.BE.Usuarios

        If DatosValidos() Then

            If mAgregarBS.restriccion1(txtUsuario.Text) = False Then

                mAgregarBE.NombreCompleto = txtNombreCompleto.Text
                mAgregarBE.Identificacion = txtIdentificacion.Text
                mAgregarBE.NombreUsuario = txtUsuario.Text
                mAgregarBE.Contraseña = txtContrasena.Text
                mAgregarBE.Perfil = cbPerfil.SelectedIndex
                mAgregarBE.Estado = cbEstado.SelectedIndex
                mAgregarBE.FechaCreacion = dtpFechaCreacion.Value

                Try
                    Me.mAgregarBS.Agregar(mAgregarBE)
                Catch ex As Exception
                    MessageBox.Show("Problemas al Insertar Los datos")
                End Try

                Me.DialogResult = Windows.Forms.DialogResult.OK
            Else
                MessageBox.Show("Usuario ya existente")
            End If

        End If

    End Sub

    Function DatosValidos() As Boolean 'Se validan los campos
        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty

        Me.txtNombreCompleto.Text = Me.txtNombreCompleto.Text.Trim
        Me.txtIdentificacion.Text = Me.txtIdentificacion.Text.Trim
        Me.txtUsuario.Text = Me.txtUsuario.Text.Trim
        Me.txtContrasena.Text = Me.txtContrasena.Text.Trim


        If Me.txtNombreCompleto.Text = String.Empty Then
            mensajeDeValidacion = "Nombre es requerido"
            primerControl = Me.txtNombreCompleto
        End If

        If Me.txtIdentificacion.Text = String.Empty Then
            mensajeDeValidacion = "Identificacion es requerida"
            primerControl = Me.txtIdentificacion
        End If

        If Me.txtUsuario.Text = String.Empty Then
            mensajeDeValidacion = "Nombre de Usuario es requerido"
            primerControl = Me.txtUsuario
        End If

        If Me.txtContrasena.Text = String.Empty Then
            mensajeDeValidacion = "Contraseña es requerida"
            primerControl = Me.txtContrasena
        End If

        If Me.cbPerfil.Text.Trim.Length = 0 Then
            mensajeDeValidacion = "Perfil es requerido"
            primerControl = Me.cbPerfil
        End If

        If Me.cbEstado.Text.Trim.Length = 0 Then
            mensajeDeValidacion = "Estado es requerido"
            primerControl = Me.cbPerfil
        End If



        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
            Return False

        End If

        Return True
    End Function

End Class
